CP/M macro ASSEM 2.0 



#001 



*** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL * 

* REVS). HANDLES DISKETTES WITH SECTOR SIZES OF 128 BYTES * 

* SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE DENSITY. * 



* 

* 


WRITTEN BY BOBBY DALE GIFFORD. 










* 
* 


* 
* 


9/1/79 
















* 

* 


* 


CUSTOMIZED BY JAY O'BRIEN FOR USE 


WITH 


DAJEN 






* 


* 
* 


8/3/80 AND MODIFIED 2/16/81 FOR MSDV DRIVER AT 


E800. 




* 
* 


* 


DISK MAP 


DF SECTORS USED BY COLD 


BOOT, 


WARM BOOT, FIRMWARE, 


* 


* 
* 


AND CP/M: 
















* 
* 


* 


TRK SEC 


1 


= 


FIRST SECTOR OF COLD BOOT. 




E700H 


* 


* 





2 


= 


COLD BOOT 256. 








80H 


* 


* 





3 


= 


COLD BOOT 512. 








80H 


* 


* 





4 


= 


COLD BOOT 1024. 








80H 


* 


* 





5 


= 


WARM BOOT 256. 








80H 


* 


* 





6 


= 


WARM BOOT 512. 








80H 


* 


* 





7 


= 


WARM BOOT 1024. 








80H 


* 


* 





8 


= 


COLD/WARM BOOT. 








3200H 


* 


* 





9 


= 


FIRMWARE. 








E400H 


* 


* 





10 


= 


FIRMWARE+80H. 








E480H 


* 


* 





11 


= 


FIRMWARE+100H 








E500H 


* 


* 





12 


= 


FIRMWARE+180H. 








E580H 


* 


* 





13 


= 


FIRMWARE+200H. 








E600H 


* 


* 





14 


= 


FIRMWARE+280H. 








E680H 


* 


* 





15 


= 


FIRMWARE+300H. 








E700H 


* 


* 





16 


= 


FIRMWARE+380H. 








E780H 


* 


* 





17 


= 


CCP. 








2D00H 


* 


* 





10 


= 


CCP+80H . 








2D80H 


* 


* 





12 


= 


CCP+100H. 








2E00H 


* 


* 





14 


= 


CCP+180H. 








2E80H 


* 


* 





16 


= 


CCP+200H. 








2F00H 


* 


* 





18 


= 


CCP+280H. 








2F80H 


* 


* 





20 


= 


CCP+300H. 








3000H 


* 


* 





22 


= 


CCP+380H. 








3080H 


* 


* 





24 


= 


CCP+400H. 








3100H 


* 


* 





26 


= 


CCP+480H. 








3180H 


* 


* 
* 


1 




= 


REST OF CP/M. 






3200H 


-4FFFH 


* 


***************************************************************** 



Use Jm^a/ sra?'4t OiWc-r fta tsr 

2- Ilk ft V 



TITLE 



•*** cbios For CP/M Ver. 2.2 ***' 



***************************************************************** 

* * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M * 

* 2.0 CBIOS. * 

* * 
***************************************************************** 



001E = 
0016 = 



REVNUM EQU 30 
CPMREV EQU 22 



; CBIOS REVISION NUMBER 
;CP/M REVISION NUMBER 



CP/M MACRO ASSEM 2.0 #002 *** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0,1,3,3.1,4. * 

* * 
***************************************************************** 



E000 
E400 
E403 
E406 
E409 
E40C 
E40F 
E412 
E415 
E418 
E41B 
E421 
E427 
E42A 
E42D 
E430 



ORIGIN 


EQU 


0E000H 






DJRAM 


EQU 


ORIGIN+400H 


•DISK 


JOCKEY 


DJCIN 


EQU 


DJRAM+3H 


•DISK 


JOCKEY 


DJCOUT 


EQU 


DJRAM+6H 


•DISK 


JOCKEY 


DJHOME 


EQU 


DJRAM+9H 


•DISK 


JOCKEY 


DJTRK 


EQU 


DJRAM+0CH 


•DISK 


JOCKEY 


DJSEC 


EQU 


DJRAM+0FH 


•DISK 


JOCKEY 


DJDMA 


EQU 


DJRAM+012H 


•DISK 


JOCKEY 


DJREAD 


EQU 


DJRAM+1 5H 


•DISK 


JOCKEY 


DJWRITE 


EQU 


DJRAM+18H 


■DISK 


JOCKEY 


DJSEL 


EQU 


DJRAM+1BH 


•DISK 


JOCKEY 


DJTSTAT 


EQU 


DJRAM+21H 


•DISK 


JOCKEY 


DJSTAT 


EQU 


DJRAM+27H 


•DISK 


JOCKEY 


DJERR 


EQU 


DJRAM+2AH ; 


•DISK 


JOCKEY 


DJDEN 


EQU 


DJRAM+2DH 


•DISK 


JOCKEY 


DJSIDE 


EQU 


DJRAM+30H 


•DISK 


JOCKEY 



2D RAM ADDRESS 

2D CHARACTER INPUT ROUTINE 

2D CHARACTER OUTPUT ROUTINE 

2D TRACK ZERO SEEK 

2D TRACK SEEK ROUTINE 

2D SET SECTOR ROUTINE 

2D SET DMA ADDRESS 

2D READ ROUTINE 

2D WRITE ROUTINE 

2D SELECT DRIVE ROUTINE 

2D TERMINAL STATUS ROUTINE 

2D STATUS ROUTINE 

2D ERROR, FLASH LED 

2D SET DENSITY ROUTINE 

2D SET SIDE ROUTINE 



***************************************************************** 

* * 

* EQUATES FOR MY SYSTEM. J.J. O'BRIEN * 

* * 
***************************************************************** 



D01E 
D286 
D2A5 
E800 



DAJIN EQU 

DAJST EQU 

DAJSER EQU 

MSDV EQU 



0D01EH 
0D286H 
0D2A5H 
0E800H 



;DAJEN INPUT ROUTINE 
; DA JEN STATUS ROUTINE 
;DAJEN SERIAL OUTPUT ROUTINE 
;VIDEO DRIVER FOR MSDV 



***************************************************************** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 
***************************************************************** 



0030 
7000 
9D00 
A500 
B300 
0004 
0080 
0100 
0001 
0003 



MSIZE 


EQU 


48 


BIAS 


EQU 


(MSIZE-20)*1024 


CCP 


EQU 


2D00H+BIAS 


BDOS 


EQU 


CCP+800H 


BIOS 


EQU 


CCP+1600H 


CDISK 


EQU 


4 


BUFF 


EQU 


80H 


TPA 


EQU 


100H 


I NT I OB Y 


EQU 


1 


IOBYTE 


EQU 


3 



MEMORY SIZE OF TARGET CP/M 

MEMORY OFFSET FROM 20K SYSTEM 

CONSOLE COMMAND PROCESSOR 

BDOS ADDRESS 

CBIOS ADDRESS 

ADDRESS OF LAST LOGGED DISK 

DEFAULT BUFFER ADDRESS 

TRANSIENT MEMORY 

INITIAL IOBYTE 

IOBYTE LOCATION 



CP/M macro ASSEM 2.0 



#003 



*** Cbios For CP/M Ver. 2.2 *** 



0000 = 
0005 = 



000A = 
000D = 
000A = 

0003 = 
0006 = 
0019 = 

0004 = 
0008 = 



WBOT EQU 
ENTRY EQU 5 



;WARM BOOT JUMP ADDRESS 
;BDOS ENTRY JUMP ADDRESS 



***************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 

***************************************************************** 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

AETX EQU 3 

AACK EQU 6 

CLEAR EQU 19H 

MAXDISK EQU 4 

DBLSID EQU 8 



;MAX RETRIES ON DISK I/O BEFORE ERROR 

;A CARRIAGE RETURN 

;A LINE FEED 

;A ETX CHAR 

;A ACK CHAR 

; CLEAR SCREEN FOR DA JEN 

.•MAXIMUM # OF DISK DRIVES 

;SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 

***************************************************************** 



B300 



ORG 



BIOS 



B300 


C3A0B3 


JMP 


CBOOT 


B303 


C3FCB3 


WBOOTE JMP 


WBOOT 


B306 


C345B6 


JMP 


CONST 


B309 


C351B6 


JMP 


CONIN 


B30C 


C366B6 


COUT JMP 


CONOUT 


B30F 


C386B6 


JMP 


LIST 


B312 


C37BB6 


JMP 


PUNCH 


B315 


C371B6 


JMP 


READER 


B318 


C390B4 


JMP 


HOME 


B31B 


C3C6B4 


JMP 


SETDRV 


B31E 


C392B4 


JMP 


SETTRK 


B321 


C385B4 


JMP 


SETSEC 


B324 


C38AB4 


JMP 


SETDMA 


B327 


C369B5 


JMP 


READ 


B32A 


C362B5 


JMP 


WRITE 


B32D 


C391B6 


JMP 


LISTST 


B330 


C397B4 


JMP 


SECTRAN 


B333 


C31BE4 


D JDRV JMP 


DJSEL 



; CBIOS STARTING ADDRESS 

COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR TRANSLATION 

HOOK FOR SINGLE.COM PROGRAM 



***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



B336 0D0A0A 
B339 34 



PROMPT DB 
DB 



ACR, ALF, ALF 
'0*+MSIZE/l0 



;CP/M MEMORY SIZE 



CP/M macro ASSEM 2.0 

B33A 38 

B33B 4B2043502F 

B348 32 

B349 2E 

B34A 32 

B34B 2C20436269 

B357 332E 

B359 30 

B35A 0D0A 

B35C 466F722054 

B387 402030 



B38A 45 



B38B 30 

B38C 3030482E 
B390 0D0A00 



#004 

DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

IF 
DB 

ELSE 

DB 

ENDIF 

IF 

DB 

ELSE 

DB 

ENDIF 

DB 

DB 



*** Cbios For CP/M Ver. 2.2 *** 

;CP/M VERSION NUMBER 



*0'+(MSIZE MOD 10) 
'K CP/M Vers. * 
CPMREV/10+V0' 



;CBIOS REVISION NUMBER 



(CPMREV MOD 10)+ '0* 

' , Cbios rev * 

REVNUM/l0+ , 0* , ' . ' 

REVNUM MOD 10+' 0' 

ACR, ALF 

'For Thinker Toys Disk Jockey 2D Controller ' 

'@ 0' 



ORIGIN/4096 > 10 
ORIGIN/4096+ , A*-10 

ORIGIN/4096+'0' 



; CONTROLLER ORIGIN (HEX) 



(ORIGIN/256 AND 0FH) > 10 
(ORIGIN/256 AND 0FH)+'A'-10 

(ORIGIN/256 AND 0FH)+'0' 

*00H.' 
ACR, ALF, 



***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 
***************************************************************** 

;GET A CHARACTER OF THE MESSAGE 

;BUMP TEXT POINTER 

;TEST FOR END 

; RETURN IF DONE 

?SAVE POINTER TO TEXT 

y OUTPUT CHARACTER IN C 

; OUTPUT THE CHARACTER 

; RESTORE THE POINTER 

y CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 
***************************************************************** 



B393 7E 


MESSAGE MOV 


A,M 


B394 23 


INX 


H 


B395 A7 


ANA 


A 


B396 C8 


RZ 




B397 E5 


PUSH 


H 


B398 4F 


MOV 


C,A 


B399 CD0CB3 


CALL 


COUT 


B39C El 


POP 


H 


B39D C393B3 


JMP 


MESSAGE 



B3A0 310001 
B3A3 CD21B7 
B3A6 2136B3 
B3A9 CD93B3 
B3AC AF 
B3AD 32BAB8 



CBOOT 



LXI 


SP,TPA 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


A 


STA 


CPMDRV 



7 SET UP STACK 

; INITIALIZE THE TERMINAL 

;PREP FOR SENDING SIGNON MESSAGE 

;SEND THE PROMPT 

; SELECT DISK A 



CP/M MACRO ASSEM 2.0 #005 
B3B0 320400 STA 



*** Cbios For CP/M Ver. 2.2 *** 
CDISK 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). * 

* * 
***************************************************************** 



B3B3 


218000 GOCPM LXI 


H, BUFF 


B3B6 


CD8AB4 


CALL 


SETDMA 


B3B9 


3EC3 


MVI 


A, (JMP) 


B3BB 


320000 


STA 


WBOT 


B3BE 


320500 


STA 


ENTRY 


B3C1 


2103B3 


LXI 


H,WBOOTE 


B3C4 


220100 


SHLD 


WBOT+1 


B3C7 


2106A5 


LXI 


H, BDOS+6 


B3CA 


220600 


SHLD 


ENTRY+1 


B3CD 


AF 


XRA 


A 


B3CE 


32BFB8 


STA 


BUFSEC 


B3D1 


32D5B5 


STA 


BUFWRTN 


B3D4 


3A0400 


LDA 


CDISK 


B3D7 


4F 


MOV 


C,A 


B3D8 


11FBB3 


LXI 


D,CMNDBEG 


B3DB 


21089D 


LXI 


H, CCP+8 


B3DE 


3E01 


MVI 


A, CMNDEND 


B3E0 


32079D 


STA 


CCP+7 


B3E3 


47 


MOV 


B,A 


B3E4 


CD37B6 


CALL 


MOVLOP 


B3E7 


3AF9B3 


LDA 


CWFLG 


B3EA 


A7 


ANA 


A 


B3EB 


3AFAB3 


LDA 


AUTOFLG 


B3EE 


CAF2B3 


JZ 


CLDBOT 


B3F1 


IF 


RAR 




B3F2 


IF CLDBOT RAR 




B3F3 


DA009D 


JC 


CCP 


B3F6 


C3039D 


JMP 


CCP+3 


B3F9 


00 CWFLG DB 






;SET UP INITIAL DMA ADDRESS 

INITIALIZE JUMP TO WARM BOOT 

; INITIALIZE JUMP TO BDOS 
f ADDRESS IN WARM BOOT JUMP 

? ADDRESS IN BDOS JUMP 

;A <- 

?DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 



; BEGINNING OF INITIAL COMMAND 
; COMMAND BUFFER 
A, CMNDEND-CMNDBEG+1 ; LENGTH OF COMMAND 



? ENTER CP/M 

? COLD/WARM BOOT FLAG 

***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 

* = NEVER GIVE COMMAND. * 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. * 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. * 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. * 

* * 
***************************************************************** 



B3FA 01 



AUTOFLG DB 



;AUTO COMMAND FEATURE 



CP/M MACRO ASSEM 2.0 #006 *** Cbios For CP/M Ver. 2.2 *** 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE: * 

* * 
* 



CMNDBEG DB 
CMNDEND DB 



'MBASIC MYPROG* * 

* CMNDEND DB * 

* * 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. * 

* * 
***************************************************************** 



B3FB 00 



CMNDBEG DB 
CMNDEND DB 



i ■ 





; INITIAL COMMAND GOES HERE 



***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 
***************************************************************** 



B3FC 


310001 


WBOOT LXI 


SP,TPA 


B3FF 


3E01 


MVI 


A,l 


B400 


= 


WFLG EQU 


$-1 


B401 


A7 


ANA 


A 


B402 


3E01 


MVI 


A,l 


B404 


3200B4 


STA 


WFLG 


B407 


32F9B3 


STA 


CWFLG 


B40A 


CAB3B3 


JZ 


GOCPM 


B40D 


AF 


XRA 


A 


B40E 


3200B4 


STA 


WFLG 


B411 


4F 


MOV 


C,A 


B412 


CD33B3 


CALL 


DJDRV 


B415 


0E00 


MVI 


C,0 


B417 


CD2DE4 


CALL 


DJDEN 


B41A 


0E00 


MVI 


C,0 


B41C 


CD30E4 


CALL 


DJSIDE 


B41F 


3E0F 


MVI 


A, 15 


B421 


323FB4 


STA 


NEWSEC 


B424 


21009C 


LXI 


H,CCP-100H 


B427 


225EB4 


SHLD 


NEWDMA 


B42A 


CD3EB4 


CALL 


WARMLOD 


B42D 


0100A2 


LXI 


B,CCP+500H 


B430 


CD12E4 


CALL 


DJDMA 


B433 


0E08 


MVI 


C,8 


B435 


CD0FE4 


CALL 


DJSEC 


B438 


CD72B4 


CALL 


WARMRD 


B43B 


C303A2 


JMP 


CCP+503H 


B43E 


3E0F 


WARMLOD MVI 


A, 15 


B43F 


= 


NEWSEC EQU 


$-1 


B440 


3C 


INR 


A 



;SET UP STACK POINTER 

;TEST IF BEGINNING OR 

7 ENDING A WARM BOOT 



;SET COLD /WARM BOOT FLAG 



; SELECT DRIVE A 

; SELECT SINGLE DENSITY 

; SELECT SIDE 

; INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 

; UPDATE THE PREVIOUS SECTOR 



CP/M MACRO ASSEM 2.0 



#007 



*** Cbios For CP/M Ver. 2.2 *** 



B441 


3C 


INR 


A 


B442 


FE1B 


CPI 


27 


B444 


DA56B4 


JC 


NOWRAP 


B447 


D609 


SUI 


9 


B449 


FE13 


CPI 


19 


B44B 


C8 


RZ 




B44C 


2A5EB4 


LHLD 


NEWDMA 


B44F 


1180FB 


LXI 


D,-480H 


B452 


19 


DAD 


D 


B453 


225EB4 


SHLD 


NEWDMA 


B456 


323FB4 


NOWRAP STA 


NEWSEC 


B459 


4F 


MOV 


C,A 


B45A 


CD0FE4 


CALL 


DJSEC 


B45D 


21009C 


LXI 


H,CCP-100H 


B45E 


=s 


NEWDMA EQU 


$-2 


B460 


110001 


LXI 


D, 100H 


B463 


19 


DAD 


D 


B464 


225EB4 


SHLD 


NEWDMA 


B467 


44 


MOV 


B,H 


B468 


4D 


MOV 


C,L 


B469 


CD12E4 


CALL 


DJDMA 


B46C 


CD72B4 


CALL 


WARMRD 


B46F 


C3 3EB4 


JMP 


WARMLOD 


B472 


01000A 


WARMRD LXI 


B, RETRIES* 


B475 


C5 


WRMREAD PUSH 


B 


B476 


CD0CE4 


CALL 


DJTRK 


B479 


CD15E4 


CALL 


DJREAD 


B47C 


CI 


POP 


B 


B47D 


D0 


RNC 




B47E 


05 


DCR 


B 


B47F 


C275B4 


JNZ 


WRMREAD 


B482 


C32AE4 


JMP 


DJERR 



;WAS IT THE LAST ? 
;YES 



;SAVE THE NEW SECTOR TO READ 

;GET THE PREVIOUS DMA ADDRESS 
;UPDATE THE DMA ADDRESS 
;SAVE THE DMA ADDRESS 

;SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

;CONTINUE IF SUCCESSFUL 

;KEEP TRYING 



******************************************************* 

* * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 
***************************************************************** 



B435 


79 


SETSEC 


MOV 


A,C 


B436 


32B9B8 




STA 


CPMSEC 


B489 


C9 




RET 





;SAVE THE SECTOR NUMBER 
;CP/M SECTOR # 



***************************************************************** 

* * 

* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. * 

* * 
***************************************************************** 



B48A 


60 


SETDMA 


MOV 


H,B 


B48B 


69 




MOV 


L,C 


B48C 


22B5B5 




SHLD 


CPMDMA 


B48F 


C9 




RET 





;HL <- BC 

;CP/M DMA ADDRESS 



CP/M macro ASSEM 2.0 



#008 



*** Cbios For CP/M Ver. 2.2 *** 



B490 0E00 



********** * ****************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 
***************************************************************** 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



B492 


79 


SETTRK 


MOV 


A,C 


B493 


32BBB8 




STA 


CPMTRK 


B496 


C9 




RET 





;A <- TRACK # 
;CP/M TRACK # 



***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 
***************************************************************** 



B497 


03 


SECTRAN INX 


B 


B498 


D5 


PUSH 


D 


B499 


C5 


PUSH 


B 


B49A 


CD41B5 


CALL 


GETDPB 


B49D 


7E 


MOV 


A,M 


B49E 


B7 


ORA 


A 


B49F 


IF 


RAR 




B4A0 


91 


SUB 


C 


B4A1 


F5 


PUSH 


PSW 


B4A2 


FAAEB4 


JM 


SIDETWO 


B4A5 


Fl 


SIDEA POP 


PSW 


B4A6 


CI 


POP 


B 


B4A7 


Dl 


POP 


D 


B4A8 


EB 


SIDEONE XCHG 




B4A9 


09 


DAD 


B 


B4AA 


6E 


MOV 


L,M 


B4AB 


2600 


MVI 


H,0 


B4AD 


C9 


RET 




B4AE 


010F00 


SIDETWO LXI 


B,15 


B4B1 


09 


DAD 


B 


B4B2 


7E 


MOV 


A,M 


B4B3 


E608 


ANI 


8 


B4B5 


CAA5B4 


JZ 


SIDEA 


B4B8 


Fl 


POP 


PSW 


B4B9 


CI 


POP 


B 


B4BA 


2F 


CMA 




B4BB 


3C 


INR 


A 


B4BC 


4F 


MOV 


C,A 


B4BD 


Dl 


POP 


D 



;SAVE TABLE ADDRESS 

;SAVE SECTOR # 

;GET DPB ADDRESS INTO HL 

;GET # OF CP/M SECTORS/ TRACK 

; CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

; DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



;OFFSET TO SIDE BIT 

;TEST FOR DOUBLE SIDED 

; MEDIA IS ONLY SINGLE SIDED 

; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 
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B4BE CDA8B4 
B4C1 3E80 
B4C3 B5 
B4C4 6F 
B4C5 C9 



CALL 


SIDEONE 


MVI 


A.80H 


ORA 


L 


MOV 


L,A 


RET 





;SIDE TWO BIT 

AND SECTOR 



***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE 
OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A 
PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 
DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 
DIFFERENT SECTOR SIZES: 

1) 128 BYTES SINGLE DENSITY. 

2) 2 56 BYTES DOUBLE DENSITY. 

3) 512 BYTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY. 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



B4C6 
B4C7 
B4CA 
B4CC 
B4CF 
B4D0 
B4D2 
B4D5 
B4D7 
B4DA 
B4DD 
B4E0 
B4E3 
B4E6 
B4E8 
B4E9 
B4EA 
B4ED 
B4EE 
B4F0 
B4F1 
B4F2 
B4F5 
B4F6 
B4F7 
B4F9 
B4FC 
B4FF 
B500 
B501 
B504 



79 

32BAB8 

FE04 

D23DB5 

7B 

E601 

C224B5 

3E01 

32BCB8 

32BBB8 

CD20B6 

DA3DB5 

CD27E4 

E60C 

F5 

IF 

215AB5 

5F 

1600 

19 

E5 

CD41B5 

EB 

Dl 

0602 

CD37B6 

110800 

19 

E5 

2A07E0 

23 



SETDRV 



B505 7E 
B506 EE03 
B508 6F 
B509 26E3 



MOV 

STA 

CPI 

JNC 

MOV 

ANI 

JNZ 

MVI 

STA 

STA 

CALL 

JC 

CALL 

ANI 

PUSH 

RAR 

LXI 

MOV 

MVI 

DAD 

PUSH 

CALL 

XCHG 

POP 

MVI 

CALL 

LXI 

DAD 

PUSH 

LHLD 

INX 

MOV 
XRI 
MOV 

MVI 



A,C 

CPMDRV 

MAXDISK 

ZRET 

A,E 

1 

SETDRV1 

A,l 

TRUESEC 

CPMTRK 

FILL 

ZRET 

DJSTAT 

0CH 

PSW 

H,XLTS 

E,A 

D,0 

D 

H 

GETDPB 

D 

B,2 

MOVLOP 

D,8 

D 

H 

ORIGIN+7 

H 



;SAVE THE DRIVE # 

; CHECK FOR A VALID DRIVE # 

; ILLEGAL DRIVE # 

;TEST IF DRIVE EVER LOGGED IN BEFORE 

;BIT OF E = -> NEVER SELECTED BEFORE 
; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
;GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 

yTABLE OF XLT ADDRESSES 



;SAVE POINTER TO PROPER XLT 
;GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 

;GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
;BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 



A,M 

3 

L,A 

H, (ORIGIN+300H)/100H 



; ADJUST FOR PROPER REV DJ 
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B50B 


7E 


MOV 


A,M 


B50C 


E608 


ANI 


DBLSID 


B50E 


11F9B7 


LXI 


D,DPB128S 


B511 


C217B5 


JNZ 


SIDEOK 


B514 


1139B8 


LXI 


D,DPB128D 


B517 


EB 


SIDEOK XCHG 




B518 


Dl 


POP 


D 


B519 


Fl 


POP 


PSW 


B51A 


17 


RAL 




B51B 


17 


RAL 




B51C 


4F 


MOV 


C,A 


B51D 


0600 


MVI 


B,0 


B51F 


09 


DAD 


B 


B520 


EB 


XCHG 




B521 


73 


MOV 


M,E 


B522 


23 


INX 


H 


B523 


72 


MOV 


M,D 


B524 


CD41B5 


SETDRV1 CALL 


GETDPB 


B527 


010F00 


LXI 


B,15 


B52A 


09 


DAD 


B 


B52B 


7E 


MOV 


A,M 


B52C 


E607 


ANI 


7H 


B52E 


326EB5 


STA 


SECSIZ 


B531 


7E 


MOV 


A,M 


B532 


IF 


RAR 




B533 


IF 


RAR 




B534 


IF 


RAR 




B535 


IF 


RAR 




B536 


E60F 


ANI 


0FH 


B538 


32A4B5 


STA 


SECPSEC 


B53B 


EB 


XCHG 




B53C 


C9 


RET 




B53D 


210000 


ZRET LXI 


H,0 


B540 


C9 


RET 





; CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB ' S 

?BASE OF DOUBLE SIDED DPB'S 
;HL <- DBP BASE, DE <- &DPH.DPB 
; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



;PUT DPB ADDRESS IN DPH 



;GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

?GET SECTOR SIZE 



;HL <- DPH 



;SELDRV ERROR EXIT 



***************************************************************** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY * 

* SELECTED DRIVE, DE POINTING TO DPH. * 

* * 
***************************************************************** 



B541 


3ABAB8 GETDPB LDA 


CPMDRV 


B544 


6F 


MOV 


L,A 


B545 


2600 


MVI 


H,0 


B547 


29 


DAD 


H 


B548 


29 


DAD 


H 


B549 


29 


DAD 


H 


B54A 


29 


DAD 


H 


B54B 


1179B8 


LXI 


D,DPZERO 


B54E 


19 


DAD 


D 


B54F 


E5 


PUSH 


H 


B550 


110A00 


LXI 


D,10 


B553 


19 


DAD 


D 


B554 


7E 


MOV 


A,M 



;GET DRIVE # 
;FORM OFFSET 



?BASE OF DPH'S 

;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

?GET LOW BYTE OF DPB ADDRESS 
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B555 23 
B556 66 
B557 6F 
B558 Dl 
B559 C9 



I NX 


H 


MOV 


H,M 


MOV 


L,A 


POP 


D 


RET 





;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 
***************************************************************** 



B55A 2BB7 
B55C 46B7 
B55E 7BB7 
B560 B8B7 



XLTS 



DW 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 



XLT FOR 128 BYTE SECTORS 
XLT FOR 256 BYTE SECTORS 
XLT FOR 512 BYTE SECTORS 
XLT FOR 1024 BYTE SECTORS 



***************************************************************** 

* * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 
***************************************************************** 



B562 79 
B563 32CCB5 
B566 3E01 
B568 06 



WRITE 



MOV 


A,C 


STA 


WRITTYP 


MVI 


A,l 


DB 


(MVI) OR (B*8) 



;SAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 

THE FOLLOWING "XRA A" TO 

BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 
***************************************************************** 



B569 AF 
B56A 32B8B5 



READ 



XRA 
STA 



A 
RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 
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* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ 

* FROM THE DISK. 

***************************************************************** 



* 
* 
* 
* 



THE IS MODIFIED TO CONTAIN THE LOG2 
OF THE PHYSICAL SECTOR SIZE/ 128 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

TEMPORARY SAVE 

SAVE ONLY THE SIDE BIT 

REMEMBER THE SIDE 

GET THE SECTOR BACK 

FORGET THE SIDE BIT 

TEMPORARY ADJUSTMENT 

UPDATE REPEAT COUNT 

CLEAR THE GARY FLAG 

DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



RESTORE THE SIDE BIT 

SAVE THE PHYSICAL SECTOR NUMBER 

POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

COUNT LOOP 

TEST IF DONE WITH COMPARE 

YES, MATCH. GO MOVE THE DATA 

GET A BYTE TO COMPARE 

TEST FOR MATCH 

BUMP POINTERS TO NEXT DATA ITEM 



; MATCH, CONTINUE TESTING 

***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 
***************************************************************** 



B56D 


0600 


REDWRT 


MVI 


B,0 


B56E 


=r 


SECSIZ 


EQU 


$-1 


B56F 


3AB9B8 




LDA 


CPMSEC 


B572 


F5 




PUSH 


PSW 


B573 


E680 




ANI 


80H 


B575 


4F 




MOV 


C,A 


B576 


Fl 




POP 


PSW 


B577 


E67F 




ANI 


7FH 


B579 


3D 




DCR 


A 


B57A 


05 


DIVLOOP 


DCR 


B 


B57B 


CA83B5 




JZ 


DIVDONE 


B57E 


B7 




ORA 


A 


B57F 


IF 




RAR 




B580 


C37AB5 




JMP 


DIVLOOP 


B583 


3C 


DIVDONE 


INR 


A 


B584 


Bl 




ORA 


C 


B585 


32BCB8 




STA 


TRUE SEC 


B588 


21BAB8 




LXI 


H,CPMDRV 


B58B 


11BDB8 




LXI 


D,BUFDRV 


B58E 


0604 




MVI 


B,4 


B590 


05 


DTSLOP 


DCR 


B 


B591 


CA9FB5 




JZ 


MOVE 


B594 


1A 




LDAX 


D 


B595 


BE 




CMP 


M 


B596 


23 




I NX 


H 


B597 


13 




I NX 


D 


B598 


CA90B5 




JZ 


DTSLOP 



B59B CD20B6 
B59E D8 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 
***************************************************************** 



B59F 3AB9B8 
B5A2 3D 
B5A3 E600 



MOVE 



LDA 


CPMSEC 


DCR 


A 


ANI 






,-GET THE CP/M SECTOR TO TRANSFER 
; ADJUST TO PROPER SECTOR IN BUFFER 
; STRIP OFF HIGH ORDERED BITS 



CP/M MACRO ASSEM 2.0 #013 
B5A4 = SECPSEC EQU 



*** Cbios For CP/M Ver. 2.2 *** 
$-1 



B5A5 


6F 




MOV 


L, A 


B5A6 


2600 




MVI 


H,0 


B5A8 


29 




DAD 


H 


B5A9 


29 




DAD 


H 


B5AA 


29 




DAD 


H 


B5AB 


29 




DAD 


H 


B5AC 


29 




DAD 


H 


B5AD 


29 




DAD 


H 


B5AE 


29 




DAD 


H 


B5AF 


11C0B8 




LXI 


D, BUFFER 


B5B2 


19 




DAD 


D 


B5B3 


EB 




XCHG 




B5B4 


210000 




LXI 


H,0 


B5B5 


= 


CPMDMA 


EQU 


$-2 


B5B7 


3E00 




MVI 


A,0 


B5B8 


= 


RDWR 


EQU 


$-1 


B5B9 


A7 




ANA 


A 


B5BA 


C2C2B5 




JNZ 


INTO 


B5BD 


CD35B6 


OUTOF 


CALL 


MOVER 


B5C0 


AF 




XRA 


A 


B5C1 


C9 




RET 




B5C2 


EB 


INTO 


XCHG 




B5C3 


CD35B6 




CALL 


MOVER 


B5C6 


3E01 




MVI 


A,l 


B5C8 


32D5B5 




STA 


BUFWRTN 


B5CB 


3E00 




MVI 


A,0 


B5CC 


= 


WRITTYP 


EQU 


$-1 


B5CD 


3D 




DCR 


A 


B5CE 


3E00 




MVI 


A,0 


B5D0 


32CCB5 




STA 


WRITTYP 


B5D3 


C0 




RNZ 





THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL SECTORS 
PUT INTO HL 

;FORM OFFSET INTO BUFFER 



; BEGINNING ADDRESS OF BUFFER 

;FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 

?DE = ADDRESS IN BUFFER 

;GET DMA ADDRESS, THE IS MODIFIED TO 

; CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 

***************************************************************** 



B5D4 


3E00 


FLUSH 


MVI 


B5D5 


=s 


BUFWRTN 


EQU 


B5D6 


A7 




ANA 


B5D7 


C8 




RZ 


B5D8 


2118E4 




LXI 



A,0 

$-1 

A 

H, DJWRITE 



7 THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 
;WRITE OPERATION 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 
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* ADDRESS. * 

* * 
***************************************************************** 



B5DB 


AF 


PREP XRA 


A 


B5DC 


32D5B5 


STA 


BUFWRTN 


B5DF 


2212B6 


SHLD 


RETRYOP 


B5E2 


060A 


MVI 


B, RETRIES 


B5E4 


C5 


RETRYLP PUSH 


B 


B5E5 


3ABDB8 


LDA 


BUFDRV 


B5E8 


4F 


MOV 


C,A 


B5E9 


CD33B3 


CALL 


DJDRV 


B5EC 


3ABEB8 


LDA 


BUFTRK 


B5EF 


A7 


ANA 


A 


B5F0 


4F 


MOV 


C,A 


B5F1 


C5 


PUSH 


B 


B5F2 


CC09E4 


CZ 


DJHOME 


B5F5 


CI 


POP 


B 


B5F6 


CD0CE4 


CALL 


DJTRK 


B5F9 


3ABFB8 


LDA 


BUFSEC 


B5FC 


F5 


PUSH 


PSW 


B5FD 


07 


RLC 




B5FE 


E601 


ANI 


1 


B600 


4F 


MOV 


C,A 


B601 


CD30E4 


CALL 


DJSIDE 


B604 


Fl 


POP 


PSW 


B605 


E67F 


ANI 


7FH 


B607 


4F 


MOV 


C f A 


B608 


CD0FE4 


CALL 


DJSEC 


B60B 


01C0B8 


LXI 


B, BUFFER 


B60E 


CD12E4 


CALL 


DJDMA 


B611 


CD15E4 


CALL 


DJREAD 


B612 


= 


RETRYOP EQU 


$-2 


B614 


CI 


POP 


B 


B615 


3E00 


MVI 


A,0 


B617 


D0 


RNC 




B618 


05 


DCR 


B 


B619 


37 


STC 




B61A 


3EFF 


MVI 


A, 0FFH 


B61C 


C8 


RZ 




B61D 


C3E4B5 


JMP 


RETRYLP 



; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 

; SELECT THE DRIVE 

;TEST FOR TRACK ZERO 



HOME THE DRIVE IF TRACK 

RESTORE TRACK # 

SEEK TO PROPER TRACK 

GET SECTOR INVOLVED IN OPERATION 

SAVE THE SECTOR # 

BIT OF A EQUALS SIDE # 

STRIP OFF UNNECESSARY BITS 

C <- SIDE # 

SELECT THE SIDE 

A <- SECTOR # 

STRIP OFF SIDE BIT 

C <- SECTOR # 

SET THE SECTOR TO TRANSFER 

SET THE DMA ADDRESS 

;THE READ OPERATION IS MODIFIED TO WRITE 

.•RESTORE THE RETRY COUNTER 

;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 

;TRY AGAIN 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



B620 


CDD4B5 


B623 


D8 


B624 


11BAB8 


B627 


21BDB8 


B62A 


0603 


B62C 


CD37B6 


B62F 


2115E4 


B632 


C3DBB5 



FILL 



CALL 


FLUSH 


RC 




LXI 


D,CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,3 


CALL 


MOVLOP 


LXI 


H, DJREAD 


JMP 


PREP 



; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

; UPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
yCOPY THE DATA 

? SELECT DRIVE, TRACK, AND SECTOR. 
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THEN READ THE BUFFER 

***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * 

***************************************************************** 



B635 


0680 


MOVER 


MVI 


B,128 


B637 


1A 


MOVLOP 


LDAX 


D 


B638 


77 




MOV 


M,A 


B639 


13 




I NX 


D 


B63A 


23 




INX 


H 


B63B 


05 




DCR 


B 


B63C 


C237B6 




JNZ 


MOVLOP 


B63F 


C9 




RET 





; LENGTH OF TRANSFER 
; GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

; UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST * 

* CHANGE THE ENTRIES IN THE TABLES. * 

* * 

***************************************************************** 



E403 = 
B640 79 
B641 F5 
B642 C3A5D2 



CITTY EQU DJCIN 

COTTY MOV A,C 

PUSH PSW 

JMP DAJSER 



; INPUT FROM THE DISK JOCKEY 2D 
? DAJSER WANTS DATA IN A 
; BECAUSE DAJEN POPS IT LATER 
; OUTPUT CHARACTER TO DAJEN 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 

***************************************************************** 



B645 21BFB6 
B648 C357B6 



CONST LXI 
JMP 



H,CSTBLE 
CONIN1 



.•BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 

* * 

***************************************************************** 
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; BEGINNING OF READER STATUS TABLE 



B64B 21C7B6 
B64E C374B6 



CSREADR LXI 
JMP 



H,CSRTBLE 
READERA 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE. * 

* * 
***************************************************************** 



B651 CDD4B5 
B654 2197B6 



CONIN 



CALL 
LXI 



FLUSH 
H, CITBLE 



; FLUSH THE DISK BUFFER 

;BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 

* OF IOBYTE. THIS IS USED BY CONIN , CONOUT , AND CONST. 
* 



B657 3A0300 
B65A 17 



CONIN1 LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 
* 



B65B E606 SELDEV ANI 


6H 


B65D 1600 


MVI 


D,0 


B65F 5F 


MOV 


E,A 


B660 19 


DAD 


D 


B661 7E 


MOV 


A,M 


B662 23 


I NX 


H 


B663 66 


MOV 


H,M 


B664 6F 


MOV 


L, A 


B665 E9 


PCHL 





; STRIP OFF UNWANTED BITS 
;FORM OFFSET 

;ADD OFFSET 

;PICK UP HIGH BYTE 

7 PICK UP LOW BYTE 
;FORM ADDRESS 
7 GO THERE 1 

***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 
***************************************************************** 



B666 C5 
B667 CDD4B5 
B66A CI 
B66B 219FB6 
B66E C357B6 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H f COTBLE 

JMP CONIN1 



;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

; BEGINNING OF THE CHARACTER OUT TABLE 

;DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. * 

* * 

***************************************************************** 
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B671 21B7B6 



READER LXI 



H, RTBLE 



; BEGINNING OF READER INPUT TABLE 



* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CSREADER. 
* 



B674 3A0300 



READERA LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 
* 



B677 IF 
B678 C35BB6 



RE ADR 1 RAR 
JMP 



SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF IOBYTE. * 

* * 
***************************************************************** 



B67B 21AFB6 
B67E 3A0300 



PUNCH LXI 
LDA 



H,PTBLE 
IOBYTE 



.♦BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 
* 



B681 IF 
B682 IF 
B683 C377B6 



PNCH1 RAR 
RAR 
JMP 



RE ADR 1 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE * 

* * 
***************************************************************** 



B686 21A7B6 
B689 3A0300 
B68C IF 
B68D IF 
B68E C381B6 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



; BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 
***************************************************************** 



B691 21CFB6 LISTST LXI 



H,LSTBLE 



; BEGINNING OF THE LIST DEVICE STATUS 
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B694 C389B6 



JMP 



LIST1 



***************************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 
***************************************************************** 







* 
* 


CONSOLE INPUT 


TABLE 


B697 


03E4 


CITBLE 


DW 


CITTY 


B699 


05B7 






DW 


CICRT 


B69B 


71B6 






DW 


READER 


B69D 


05B7 






DW 


CIUC1 



INPUT FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, INPUT FROM 2D) 
INPUT FROM DA JEN 

INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM USER CONSOLE 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* CONSOLE OUTPUT TABLE 



B69F 


40B6 


COTBLE 


DW 


COTTY 


B6A1 


D7B6 




DW 


COCRT 


B6A3 


86B6 




DW 


LIST 


B6A5 


DBB6 




DW 


COUC1 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO CRT (DAJEN) 

OUTPUT TO LIST DEVICE (DEPENDS ON 

BITS 6&7 OF IOBYTE) 
OUTPUT TO USER CONSOLE 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



♦LIST DEVICE TABLE 



B6A7 40B6 
B6A9 D7B6 
B6AB DBB6 
B6AD E6B6 



LTBLE 



DW 


COTTY 


DW 


COCRT 


DW 


COLPT 


DW 


COUL1 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO CRT (DAJEN) 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 



* PUNCH DEVICE TABLE 
* 



B6AF 40B6 



PTBLE DW 



COTTY 



.•OUTPUT TO THE TTY (CURRENTLY ASSIGNED 
? BY INTIOBY, OUTPUT TO 2D) 



CP/M MACRO 


ASSEM 


2 


.0 


#019 


*** Q 


B6B1 DBB6 








DW 


COPTP 


B6B3 DBB6 








DW 


COUP1 


B6B5 DBB6 








DW 


COUP 2 
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OUTPUT TO PAPER TAPE PUNCH (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



* READER DEVICE INPUT TABLE 
* 



B6B7 03E4 


RTBLE 


DW 


CITTY 


B6B9 05B7 




DW 


CIPTR 


B6BB 05B7 




DW 


CIUR1 


B6BD 05B7 




DW 


CIUR2 



INPUT PROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, INPUT FROM 2D) 
INPUT FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 







* 
* 


CONSOLE STATUS TABLE 


B6BF 


08B7 


CSTBLE 


DW 


CSTTY 


B6C1 


10B7 






DW 


CSCRT 


B6C3 


4BB6 






DW 


CSREADR 


B6C5 


10B7 






DW 


CSUC1 



STATUS OF TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STSTUS FROM 2D) 
STATUS FROM CRT (DAJEN) 

STATUS FROM READER (DEPENDS ON READER DEVICE ) 
STATUS FROM USER CONSOLE 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM READER DEVICE 



B6C7 


08B7 


CS RTBLE 


DW 


CSTTY 


B6C9 


10B7 




DW 


CSPTR 


B6CB 


10B7 




DW 


CSUR1 


B6CD 


10B7 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 
* 



B6CF 1EB7 
B6D1 1EB7 
B6D3 19B7 
B6D5 19B7 



LSTBLE 



DW 


READY 


DW 


READY 


DW 


LSLPT 


DW 


LSLPT 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



***************************************************************** 
* * 
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* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 

* * 

***************************************************************** 



* MSDV VIDEO DRIVER 
* 



B6D7 79 
B6D8 C300E8 



COCRT MOV A,C 
JMP MSDV 



;MSDV WANTS DATA IN A 
;G0 THERE 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 



B6DB 


= 


COUC1 


EQU 


$ 


B6DB 


= 


COPTP 


EQU 


$ 


B6DB 


= 


COUP1 


EQU 


$ 


B6DB 


ss 


COUP2 


EQU 


$ 


B6DB 


DB02 


COLPT 


IN 


2 


B6DD 


E680 




ANI 


80H 


B6DF 


CADBB6 




JZ 


COLPT 


B6E2 


79 




MOV 


A,C 


B6E3 


D301 




OUT 


1 


B6E5 


C9 




RET 





; OUTPUT FROM USER CONSOLE 1 

7 OUTPUT FROM PAPER TAPE PUNCH 

? OUTPUT FROM USER PUNCH 1 

;OUTPUT FROM USER PUNCH 2 

;OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 

; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 
***************************************************************** 



B6E6 


CDDBB6 


COUL1 


CALL 


COLPT 


B6E9 


3A04B7 




LDA 


COUNT 


B6EC 


3D 




DCR 


A 


B6ED 


3204B7 




STA 


COUNT 


B6F0 


C0 




RNZ 


■ 


B6F1 


3E32 




MVI 


A, 50 


B6F3 


3204B7 




STA 


COUNT 


B6F6 


0E03 




MVI 


C,AETX 


B6F8 


CDDBB6 




CALL 


COLPT 


B6FB 


CD05B7 


PWAIT 


CALL 


CIPTR 


B6FE 


FE06 




CPI 


AACK 


B700 


C2FBB6 




JNZ 


PWAIT 


B703 


C9 




RET 




B704 


32 


COUNT 


DB 


50 



; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 
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* FROM THE DAJEN * 

* * 
***************************************************************** 



B705 = 
B705 = 
B705 = 
B705 = 
B705 C31ED0 



CIUC1 EQU $ 

CICRT EQU $ 

CIUR1 EQU $ 

CIUR2 EQU $ 

CIPTR JMP DAJIN 



; INPUT FROM USER CONSOLE 1 

; INPUT FROM CRT 

; INPUT FROM USER READER 1 

; INPUT FROM USER READER 2 

; INPUT FROM DAJEN 



************************************************************* 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 
***************************************************************** 



B708 CD21E4 
B70B 3E00 
B70D C0 
B70E 3D 
B70F C9 



CSTTY CALL DJTSTAT 
STAT MVI A, 

RNZ 

DCR A 

RET 



; STATUS FROM DISK JOCKEY 2D 
;PREP FOR ZERO RETURN 
^NOTHING FOUND 
; RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE DAJEN * 

* * 

***************************************************************** 



B710 = 


CSUR1 


EQU 


$ 


B710 = 


CSUR2 


EQU 


$ 


B710 = 


CSPTR 


EQU 


$ 


B710 = 


CSUC1 


EQU 


$ 


B710 CD86D2 


CSCRT 


CALL 


DAJST 


B713 E680 




ANI 


80H 


B715 C8 




RZ 




B716 3EFF 




MVI 


A,0FF 


B718 C9 




RET 





; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE READER 

; STATUS OF USER CONSOLE 1 

;GET DAJEN STATUS 

;TEST STATUS 

; RETURN NOT READY 

;SET A 

.•RETURN WITH READY 



***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 

***************************************************************** 



B719 DB02 


LSLPT 


IN 


2 


B71B E680 




ANI 


80H 


B71D C8 




RZ 




B71E 3EFF 


READY 


MVI 


A,0 


B720 C9 




RET 





;ALL OTHER DEVICES WAIT 



***************************************************************** 

* * 

* TINIT CAN BE MODIFIED FOR DIFFERENT I/O SETUPS. * 

* * 

***************************************************************** 



CP/M macro ASSEM 2.0 



#022 



** Cbios For CP/M Ver. 2.2 *** 



B721 0E19 
B723 3E01 
B725 320300 
B728 C30CB3 



TINIT 



MVI 


C, CLEAR 


MVI 


A, INTIOBY 


STA 


IOBYTE 


JMP 


COUT 



.•INITIALIZE THE TERMINAL ROUTINE 
; INITIALIZE IOBYTE 



***************************************************************** 
* * 



* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M 



SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW 

TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE 

TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE 

LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* 



B72B 


00 XLT128 


DB 


B72C 


01070D1319 


DB 


B731 


050B1117 


DB 


B735 


03090F15 


DB 


B739 


02080E141A 


DB 


B73E 


060C1218 


DB 


B742 


040A1016 


DB 


B746 


00 XLT256 


DB 


B747 


0102131425 


DB 


B74D 


0304151627 


DB 


B753 


0506171829 


DB 


B759 


0708191A2B 


DB 


B75F 


090A1B1C2D 


DB 


B765 


0B0C1D1E2F 


DB 


B76B 


0D0E1F2031 


DB 


B771 


0F10212233 


DB 


B777 


11122324 


DB 


B77B 


00 XLT512 


DB 


B77C 


0102030411 


DB 


B784 


2122232431 


DB 


B78C 


0506070815 


DB 


B794 


2526272835 


DB 


B79C 


090A0B0C19 


DB 


B7A4 


292A2B2C39 


DB 


B7AC 


0D0E0F101D 


DB 


B7B4 


2D2E2F30 


DB 


B7B8 


00 XLT124 


DB 


B7B9 


0102030405 


DB 


B7C1 


191A1B1C1D 


DB 


B7C9 


3132333435 


DB 


B7D1 


090A0B0C0D 


DB 


B7D9 


2122232425 


DB 


B7E1 


393A3B3C3D 


DB 


B7E9 


1112131415 


DB 


B7F1 


292A2B2C2D 


DB 





1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 



9,20,37,38 

1,22,39,40 

3,24,41,42 

5,26,43,44 

27,28,45,46 

,29,30,47,48 

,31,32,49,50 

,33,34,51,52 

,35,36 





1,2,1 

3,4,2 

5,6,2 

7,8,2 

9,10, 

11,12 

13,14 

15,16 

17,18 



1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45,46,47,48 



1,2,3,4,5,6,7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 
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***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. THE TABLES ARE CURRENTLY STORED * 

* ON TRACK SECTOR 13. THEY ARE READ INTO MEMORY BY THE GOCPM * 

* ROUTINE IN THE CBIOS FOR CP/M VER 2.0. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



B7F9 1A00 


DPB128S DW 


26 


B7FB 03 


DB 


3 


B7FC 07 


DB 


7 


B7FD 00 


DB 





B7FE F200 


DW 


242 


B800 3F00 


DW 


63 


B802 C0 


DB 


0C0H 


B803 00 


DB 





B804 1000 


DW 


16 


B806 0200 


DW 


2 


B808 01 


DB 


1H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS /PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



B809 


3400 


DPB256S DW 


52 


B80B 


04 


DB 


4 


B80C 


0F 


DB 


15 


B80D 


00 


DB 





B80E 


F200 


DW 


242 


B810 


7F00 


DW 


127 


B812 


C0 


DB 


0C0H 


B813 


00 


DB 





B814 


2000 


DW 


32 


B816 


0200 


DW 


2 


B818 


12 


DB 


12H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*(( 

LOG2( 

8 IF 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 
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* * 

***************************************************************** 



B819 3C00 


DPB512S DW 


60 


B81B 04 


DB 


4 


B81C 0F 


DB 


■ 15 


B81D 00 


DB 





B81E 1801 


DW 


280 


B820 7F00 


DW 


127 


B822 C0 


DB 


0C0H 


B823 00 


DB 





B824 2000 


DW 


32 


B826 0200 


DW 


2 


B828 33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS /PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



B829 4000 


DP1024S DW 


64 


B82B 04 


DB 


4 


B82C 0F 


DB 


15 


B82D 00 


DB 





B82E 2B01 


DW 


299 


B830 7F00 


DW 


127 


B832 C0 


DB 


0C0H 


B833 00 


DB 





B834 2000 


DW 


32 


B836 0200 


DW 


2 


B838 74 


DB 


74H 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 
***************************************************************** 



B839 3400 


DPB128D DW 


52 


B83B 04 


DB 


4 


B83C 0F 


DB 


15 


B83D 01 


DB 


1 


B83E F200 


DW 


242 


B840 7F00 


DW 


127 


B842 C0 


DB 


0C0H 


B843 00 


DB 





B844 2000 


DW 


32 


B846 0200 


DW 


2 


B848 09 


DB 


9H 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

?DRM 

;AL0 

;AL1 

;CKS 

;OFF 
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***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES" A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



B849 6800 


DPB256D DW 


104 


B84B 04 


DB 


4 


B84C 0F 


DB 


15 


B84D 00 


DB 





B84E E601 


DW 


486 


B850 FF00 


DW 


255 


B852 F0 


DB 


0F0H 


B853 00 


DB 





B854 4000 


DW 


64 


B856 0200 


DW 


2 


B858 1A 


DB 


1AH 



CP/M sectors/track 

BSH 
BLM 
EXM 
DSM 
DRM 
AL0 
AL1 
CKS 
OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



B859 7800 


DPB 51 2D DW 


120 


B85B 04 


DB 


4 


B85C 0F 


DB 


15 


B85D 00 


DB 





B85E 3102 


DW 


561 


B860 FF00 


DW 


255 


B862 F0 


DB 


0F0H 


B863 00 


DB 





B864 4000 


DW 


64 


B866 0200 


DW 


2 


B868 3B 


DB 


3BH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************** ************ ************************ 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



B869 8000 


DP1024D DW 


128 


B86B 04 


DB 


4 


B86C 0F 


DB 


15 


B86D 00 


DB 





B86E 5702 


DW 


599 


B870 FF00 


DW 


255 


B872 F0 


DB 


0F0H 


B873 00 


DB 





B874 4000 


DW 


64 


B876 0200 


DW 


2 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



CP/M MACRO ASSEM 2.0 #026 
B878 7C DB 



*** Cbios For CP/M Ver. 2.2 *** 
7CH 



***************************************************************** 

* * 

* CP/M disk parameter headers, unitialized. * 

* * 

***************************************************************** 



B879 0000 DPZERO DW 

B87B 0000000000 
B881 ECBE 
B883 0000 
B885 ECBD 
B887 C0BC 

B889 0000 DPONE 
B88B 0000000000 
B891 ECBE 
B893 0000 
B895 2CBE 
B897 0BBD 

B899 0000 DPTWO 
B89B 0000000000 
B8A1 ECBE 
B8A3 0000 
B8A5 6CBE 
B8A7 56BD 

B8A9 0000 DPTHRE DW 

B8AB 0000000000 

B8B1 ECBE 

B8B3 0000 

B8B5 ACBE 

B8B7 A1BD 







DW 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV0 


DW 


ALV0 


DW 





DW • 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV1 


DW 


ALV1 


DW 





DW 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV2 


DW 


ALV2 


DW 





DW 


0,0,0 


DW 


DIRBUF 


DW 





DW 


CSV3 


DW • 


ALV3 



; ADDRESS OF TRANSLATION TABLE (FILLED 

; IN BY SETDRV) 

;USED BY BDOS 

; ADDRESS OF DIRECTORY BUFFER 

; ADDRESS OF DPB (FILLED IN BY SETDRV) 

? DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 
***************************************************************** 



;CP/M SECTOR # 

;CP/M DRIVE # 

;CP/M TRACK # 

;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

; DRIVE THAT BUFFER BELONGS TO 

; TRACK THAT BUFFER BELONGS TO 

j SECTOR THAT BUFFER BELONGS TO 

^MAXIMUM SIZE BUFFER FOR IK SECTORS 

; ALLOCATION VECTOR FOR DRIVE A 
; ALLOCATION VECTOR FOR DRIVE B 
;ALLOCATION VECTOR FOR DRIVE C 
? ALLOCATION VECTOR FOR DRIVE D 



B8B9 


00 


CPMSEC 


DB 





B8BA 


00 


CPMDRV 


DB 





B8BB 


00 


CPMTRK 


DB 





B8BC 


00 


TRUE SEC 


DB 





B8BD 


00 


BUFDRV 


DB 





B8BE 


00 


BUFTRK 


DB 





B8BF 


00 


BUFSEC 


DB 





B8C0 




BUFFER 


DS 


1024 


BCC0 




ALV0 


DS 


75 


BD0B 




ALV1 


DS 


75 


BD56 




ALV2 


DS 


75 


BDA1 




ALV3 


DS 


75 



CP/M macro ASSEM 2.0 



#027 



** Cbios For CP/M Ver. 2.2 *** 



BDEC 
BE2C 
BE6C 
BEAC 
BEEC 



CSV0 
CSV1 
CSV2 
CSV3 
DIRBUF 



DS 
DS 
DS 
DS 
DS 



64 
64 
64 
64 
128 



.•DIRECTORY CHECK VECTOR FOR DRIVE A 
; DIRECTORY CHECK VECTOR FOR DRIVE B 
; DIRECTORY CHECK VECTOR FOR DRIVE C 
.•DIRECTORY CHECK VECTOR FOR DRIVE D 
; DIRECTORY BUFFER 



BP6C 
0006 

S3UW/U 

7000 
B8BF 
0004 
B705 
B3FB 
B657 
B640 
B6DB 
B8B9 
B6C7 
B710 
B3F9 
BEEC 
E42D 
E400 
E427 
B829 
B859 
B879 
B541 
0003 
B6CF 
B635 
B43F 
B5DB 
B5B8 
B71E 
001E 
B65B 
B492 
B70B 
B472 
B562 
B746 



torn 

BIAS 

BUFSEC 

CDISK 

CIUC1 

CMNDBEG 

CONIN1 

COTTY 

COUP2 

CPMSEC 

CSRTBLE 

CSUR2 

CWFLG 

DIRBUF 

DJDEN 

DJRAM 

DJSTAT 

DP1024S 

DPB512D 

DPZERO 

GETDPB 

IOBYTE 

LSTBLE 

MOVER 

NEWSEC 

PREP 

RDWR 

READY 

REVNUM 

SELDEV 

SETTRK 

STAT 

WARMRD 

WRITE 

XLT256 



000D 

WMN 

B300 

B8BE 

B705 

B705 

B3FB 

B666 

B6DB 

B30C 

B8BB 

B6BF 

BDEC 

D01E 

B583 

E412 

E415 

E40C 

B839 

B819 

B590 

B3B3 

B686 

B6A7 

B637 

B456 

B336 

B671 

B56D 

B6B7 

B48A 

B4A5 

B721 

B303 

B5CC 

• ??• 



ACJL 

AUVi 

BIOS 

BUFTRK 

CICRT 

CIUR1 

CMNDEND 

CONOUT 

COUC1 

COUT 

CPMTRK 

CSTBLE 

CSV0 

DA JIN 

DIVDONE 

DJDMA 

DJREAD 

DJTRK 

DPB128D 

DPB512S 

DTSLOP 

GOCPM 

LIST 

LTBLE 

MOVLOP 

NOW RAP 

PROMPT 

READER 

REDWRT 

RTBLE 

SETDMA 

SIDE A 

TINIT 

WBOOTE 

WRITTYP 

tmm (Hit W 



0W03 

Mki 

B8BD 

B5D5 

B705 

B705 

B6D7 

B645 

B6E6 

B5B5 

B710 

B708 

BE2C 

D2A5 

B57A 

B333 

E40F 

E421 

B7F9 

B889 

0005 

B490 

B689 

0004 

E800 

E000 

B6AF 

B569 

000A 

B5A4 

B4C6 

B517 

0100 

B3FC 

B475 






BUFDRV 

BUFWRTN 

CIPTR 

CIUR2 

COCRT 

CONST 

COUL1 

CPMDMA 

CSCRT 

CSTTY 

CSV1 

DAJSER 

DIVLOOP 

DJDRV 

DJSEC 

DJTSTAT 

DPB128S 

DPONE 

ENTRY 

HOME 

LIST1 

MAXDISK 

MSDV 

ORIGIN 

PTBLE 

READ 

RETRIES 

SECPSEC 

SETDRV 

SIDEOK 

TPA 

WBOOT 

WRMREAD 



0080 

B3A0 

B697 

B3F2 

B6DB 

B6DB 

B704 

B8BA 

B710 

B710 

BE6C 

D286 

E403 

E42A 

E41B 

E418 

B849 

B8A9 

B620 

0001 

B691 

B393 

0030 

B5BD 

B67B 

B674 

B5E4 

B56E 

B524 

B4A8 

B8BC 

0000 

B7B8 

■9 ID 



MJf 

BUFF 

CBOOT 

CITBLE 

CLDBOT 

COLPT 

COPTP 

COUNT 

CPMDRV 

CSPTR 

CSUC1 

CSV2 

DAJST 

DJCIN 

DJERR 

DJSEL 

DJWRITE 

DPB256D 

DPTHRE 

FILL 

INTIOBY 

LISTST 

MESSAGE 

MSIZE 

OUTOF 

PUNCH 

READERA 

RETRYLP 

SECSIZ 

SETDRV1 

SIDEONE 

TRUE SEC 

WBOT 



•CCM 

MmM 

B8C0 

9D00 

E403 

0019 

B651 

B69F 

B6DB 

0016 

B64B 

B710 

BEAC 

0008 

E406 

E409 

E430 

B869 

B809 

B899 

B5D4 

B5C2 

B719 

B59F 

B45E 

B681 

B6FB 

B677 

B612 

B497 

B485 

B4AE 

B43E 

B400 

B72B 



Am* 

■DOS 

BUFFER 

CCP 

CITTY 

CLEAR 

CONIN 

COTBLE 

COUP1 

CPMREV 

CSREADR 

CSUR1 

CSV3 

DBLSID 

DJCOUT 

DJHOME 

DJSIDE 

DP1024D 

DPB256S 

DPTWO 

FLUSH 

INTO 

LSLPT 

MOVE 

NEWDMA 

PNCH1 

PWAIT 

READR1 

RETRYOP 

SECTRAN 

SETSEC 

SIDETWO 

WARMLOD 

WFLG 

XLT128 



